home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / mail / Mutt089src.lha / Mutt-0.89i-AMIGA / src / from.c < prev    next >
C/C++ Source or Header  |  1998-01-28  |  4KB  |  188 lines
  1. /*
  2.  * Copyright (C) 1996-8 Michael R. Elkins <me@cs.hmc.edu>
  3.  * 
  4.  *     This program is free software; you can redistribute it and/or modify
  5.  *     it under the terms of the GNU General Public License as published by
  6.  *     the Free Software Foundation; either version 2 of the License, or
  7.  *     (at your option) any later version.
  8.  * 
  9.  *     This program is distributed in the hope that it will be useful,
  10.  *     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.  *     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.  *     GNU General Public License for more details.
  13.  * 
  14.  *     You should have received a copy of the GNU General Public License
  15.  *     along with this program; if not, write to the Free Software
  16.  *     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  */ 
  18.  
  19. #include "mutt.h"
  20.  
  21. #include <ctype.h>
  22. #include <string.h>
  23.  
  24. static const char *next_word (const char *s)
  25. {
  26.   while (*s && !ISSPACE (*s))
  27.     s++;
  28.   SKIPWS (s);
  29.   return s;
  30. }
  31.  
  32. int mutt_check_month (const char *s)
  33. {
  34.   int i;
  35.  
  36.   for (i = 0; i < 12; i++)
  37.     if (strncasecmp (s, Months[i], 3) == 0)
  38.       return (i);
  39.   return (-1); /* error */
  40. }
  41.  
  42. static int is_day_name (const char *s)
  43. {
  44.   int i;
  45.  
  46.   if (!ISSPACE (*(s+3)))
  47.     return 0;
  48.   for (i=0; i<7; i++)
  49.     if (strncasecmp (s, Weekdays[i], 3) == 0)
  50.       return 1;
  51.   return 0;
  52. }
  53.  
  54. /*
  55.  * A valid message separator looks like:
  56.  *
  57.  * From [ <return-path> ] <weekday> <month> <day> <time> [ <timezone> ] <year>
  58.  */
  59.  
  60. time_t is_from (const char *s, char *path, size_t pathlen)
  61. {
  62.   struct tm tm;
  63.   int yr;
  64.  
  65.   *path = 0;
  66.  
  67.   if (strncmp ("From ", s, 5) != 0)
  68.     return 0;
  69.  
  70.   s = next_word (s); /* skip over the From part. */
  71.   if (!*s)
  72.     return 0;
  73.  
  74.   dprint (3, (debugfile, "\nis_from(): parsing: %s", s));
  75.  
  76.   if (!is_day_name (s))
  77.   {
  78.     const char *p;
  79.     size_t len;
  80.  
  81.     /* looks like we got the return-path, so extract it  */
  82.     if (*s == '"')
  83.     {
  84.       /* sometimes we see bogus addresses like
  85.        *    From "/foo/bar baz/"@dumbdar.com Sat Nov 22 15:29:32 PST 1997
  86.        */
  87.       p = s;
  88.       p++; /* skip over the quote */
  89.       do
  90.       {
  91.     if (!(p = strpbrk (p, "\\\"")))
  92.       return 0;
  93.     if (*p == '\\')
  94.       p += 2;
  95.       }
  96.       while (*p != '"');
  97.       while (*p && !ISSPACE (*p))
  98.     p++;
  99.     }
  100.     else
  101.     {
  102.       if ((p = strchr (s, ' ')) == NULL)
  103.     return 0;
  104.     }
  105.     len = (size_t) (p - s);
  106.     if (len + 1 > pathlen)
  107.       len = pathlen - 1;
  108.     memcpy (path, s, len);
  109.     path[len] = 0;
  110.  
  111.     s = p + 1;
  112.     SKIPWS (s);
  113.     if (!*s)
  114.       return 0;
  115.  
  116.     if (!is_day_name (s))
  117.     {
  118.       dprint(1, (debugfile, "is_from():  expected weekday, got: %s\n", s));
  119.       return 0;
  120.     }
  121.   }
  122.  
  123.   s = next_word (s);
  124.   if (!*s) return 0;
  125.  
  126.   /* do a quick check to make sure that this isn't really the day of the week.
  127.    * this could happen when receiving mail from a local user whose login name
  128.    * is the same as a three-letter abbreviation of the day of the week.
  129.    */
  130.   if (is_day_name (s))
  131.   {
  132.     s = next_word (s);
  133.     if (!*s) return 0;
  134.   }
  135.  
  136.   /* now we should be on the month. */
  137.   if ((tm.tm_mon = mutt_check_month (s)) < 0) return 0;
  138.  
  139.   /* day */
  140.   s = next_word (s);
  141.   if (!*s) return 0;
  142.   if (sscanf (s, "%d", &tm.tm_mday) != 1) return 0;
  143.  
  144.   /* time */
  145.   s = next_word (s);
  146.   if (!*s) return 0;
  147.  
  148.   /* Accept either HH:MM or HH:MM:SS */
  149.   if (sscanf (s, "%d:%d:%d", &tm.tm_hour, &tm.tm_min, &tm.tm_sec) == 3);
  150.   else if (sscanf (s, "%d:%d", &tm.tm_hour, &tm.tm_min) == 2)
  151.     tm.tm_sec = 0;
  152.   else
  153.     return 0;
  154.  
  155.   s = next_word (s);
  156.   if (!*s) return 0;
  157.  
  158.   /* timezone? */
  159.   if (isalpha (*s) || *s == '+' || *s == '-')
  160.   {
  161.     s = next_word (s);
  162.     if (!*s) return 0;
  163.  
  164.     /*
  165.      * some places have two timezone fields after the time, e.g.
  166.      *      From xxxx@yyyyyyy.fr Wed Aug  2 00:39:12 MET DST 1995
  167.      */
  168.     if (isalpha (*s))
  169.     {
  170.       s = next_word (s);
  171.       if (!*s) return 0;
  172.     }
  173.   }
  174.  
  175.   /* year */
  176.   if (sscanf (s, "%d", &yr) != 1) return 0;
  177.   tm.tm_year = yr > 1900 ? yr - 1900 : yr;
  178.  
  179.   dprint (3,(debugfile, "is_from(): month=%d, day=%d, hr=%d, min=%d, sec=%d, yr=%d.\n",
  180.          tm.tm_mon, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec, tm.tm_year));
  181.  
  182.   tm.tm_isdst = 0;
  183.   tm.tm_yday = 0;
  184.   tm.tm_wday = 0;
  185.  
  186.   return (mktime (&tm));
  187. }
  188.